home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 7 / developer source - volume 7.iso / parad / may96 / clemf105.gif

< prev

next >

Graphics Interchange Format  |  1996-11-19  |  8KB  |  534x347  |  4-bit (5 colors)

Labels: text | screenshot | display | number | software | font
OCR: FIND_AGE.FSL :: Preferred_UI_Button :: Determine_Age* method Determine_Age(const DateOfBirth Date, const AgeOnThisDay Date) SmallInt var MonthDay1, MonthDay2, Age SmallInt endvar MonthDay1 = month (DateOfBirth) * 100 + day(DateOfBirth) MonthDay2 = month (AgeOnThisDay) * 100 + day (AgeOnThisDay) Age = year (AgeOnThisDay) - year (DateOfBirth) if MonthDay1 > MonthDay2 then Age = Age - 1 endif return Age endmethod + Edit Line: 1 Col: 1

---